Multimedia Jumpstart/Multimedia Microsoft Jumpstart Version 1.1a (Microsoft).BIN/develpmt/source/roadshow/control.txt

Text File | 1993-10-14 | 1.4 KB | 74 lines

Option Explicit

Sub Agenda_Click ()
    JumpTopic (Agenda.List(Agenda.ListIndex))
End Sub

Sub Form_Activate ()
    x = SetActiveWindow(hwndVwr)
End Sub

Sub Form_Load ()

    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE

    'x = SetActiveWindow(hwndVwr)

    Agenda.AddItem ("7am")
    Agenda.AddItem ("8am")
    Agenda.AddItem ("9am")
    Agenda.AddItem ("10am")
    Agenda.AddItem ("3pm")
    Agenda.AddItem ("4pm")
    Agenda.AddItem ("5pm")
    TopicGroups.AddItem ("Main")
    TopicGroups.AddItem ("People")
    TopicGroups.AddItem ("Sites")
End Sub

Sub Form_Unload (Cancel As Integer)
    x = VwrQuit(vwr)
    End
End Sub

Sub HiddenVideo_Click ()
    Controller.Hide
    Video.Show
End Sub

Sub Index_Click ()
    x = VwrCommand(vwr, szTitle, "KeyIndex()", cmdOptNone)
End Sub

Sub Next_Click ()
    x = VwrCommand(vwr, szTitle, "Next()", cmdOptNone)
End Sub

Sub People_Click ()
    JumpTopic "People"
End Sub

Sub Prev_Click ()
    x = VwrCommand(vwr, szTitle, "Prev()", cmdOptNone)
End Sub

Sub Search_Click ()
    x = VwrCommand(vwr, szTitle, "FTSearch()", cmdOptNone)
End Sub

Sub Sites_Click ()
    JumpTopic "Sites"
End Sub

Sub TopicGroups_Click ()
    Select Case TopicGroups.List(TopicGroups.ListIndex)
    Case "Main"
        JumpTopic ("contents")
    Case "People"
        JumpTopic ("rsegal")
    Case "Sites"
        JumpTopic ("wa")
    End Select
End Sub